home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 November / Chip_1999-11_cd.bin / tema / GoLive / golive4try.exe / GoLive 4.0 Tryout / data1.cab / Apps / PDFL40.DLL / PSPROCSET / 7 < prev    next >
Text File  |  1999-08-05  |  16KB  |  1,016 lines
  1. %%BeginResource: procset pdftext
  2. %%Version: 4.0 1
  3. %%Copyright: Copyright 1987-1998 Adobe Systems Incorporated. All Rights Reserved.
  4. %%Title: Text operators for PDF
  5. PDF /PDFText 75 dict dup begin put
  6. /initialize {
  7. PDFText begin
  8. /_intT false dd
  9. 0 Tr
  10. } bd
  11. /terminate { end } bd
  12. /_safeput
  13. {
  14. Level2? not
  15. {
  16. 2 index load dup dup length exch maxlength ge
  17. { dup length 5 add dict copy
  18. 3 index xdd
  19. }
  20. { pop }
  21. ifelse
  22. }
  23. if
  24. 3 -1 roll load 3 1 roll put
  25. }
  26. bd
  27. /pdf_has_composefont? systemdict /composefont known def
  28. /CopyFont {
  29. {
  30. 1 index /FID ne 2 index /UniqueID ne and
  31. { def } { pop pop } ifelse
  32. } forall
  33. } bd
  34. /Type0CopyFont
  35. {
  36. exch
  37. dup length dict
  38. begin
  39. CopyFont
  40. [
  41. exch
  42. FDepVector
  43. {
  44. dup /FontType get 0 eq
  45. {
  46. 1 index Type0CopyFont
  47. /_pdfType0 exch definefont
  48. }
  49. {
  50. /_pdfBaseFont exch
  51. 2 index exec
  52. }
  53. ifelse
  54. exch
  55. }
  56. forall
  57. pop
  58. ]
  59. /FDepVector exch def
  60. currentdict
  61. end
  62. } bd
  63. /cHexEncoding
  64. [/c00/c01/c02/c03/c04/c05/c06/c07/c08/c09/c0A/c0B/c0C/c0D/c0E/c0F/c10/c11/c12
  65. /c13/c14/c15/c16/c17/c18/c19/c1A/c1B/c1C/c1D/c1E/c1F/c20/c21/c22/c23/c24/c25
  66. /c26/c27/c28/c29/c2A/c2B/c2C/c2D/c2E/c2F/c30/c31/c32/c33/c34/c35/c36/c37/c38
  67. /c39/c3A/c3B/c3C/c3D/c3E/c3F/c40/c41/c42/c43/c44/c45/c46/c47/c48/c49/c4A/c4B
  68. /c4C/c4D/c4E/c4F/c50/c51/c52/c53/c54/c55/c56/c57/c58/c59/c5A/c5B/c5C/c5D/c5E
  69. /c5F/c60/c61/c62/c63/c64/c65/c66/c67/c68/c69/c6A/c6B/c6C/c6D/c6E/c6F/c70/c71
  70. /c72/c73/c74/c75/c76/c77/c78/c79/c7A/c7B/c7C/c7D/c7E/c7F/c80/c81/c82/c83/c84
  71. /c85/c86/c87/c88/c89/c8A/c8B/c8C/c8D/c8E/c8F/c90/c91/c92/c93/c94/c95/c96/c97
  72. /c98/c99/c9A/c9B/c9C/c9D/c9E/c9F/cA0/cA1/cA2/cA3/cA4/cA5/cA6/cA7/cA8/cA9/cAA
  73. /cAB/cAC/cAD/cAE/cAF/cB0/cB1/cB2/cB3/cB4/cB5/cB6/cB7/cB8/cB9/cBA/cBB/cBC/cBD
  74. /cBE/cBF/cC0/cC1/cC2/cC3/cC4/cC5/cC6/cC7/cC8/cC9/cCA/cCB/cCC/cCD/cCE/cCF/cD0
  75. /cD1/cD2/cD3/cD4/cD5/cD6/cD7/cD8/cD9/cDA/cDB/cDC/cDD/cDE/cDF/cE0/cE1/cE2/cE3
  76. /cE4/cE5/cE6/cE7/cE8/cE9/cEA/cEB/cEC/cED/cEE/cEF/cF0/cF1/cF2/cF3/cF4/cF5/cF6
  77. /cF7/cF8/cF9/cFA/cFB/cFC/cFD/cFE/cFF] def
  78. /modEnc {
  79. /_enc xdd
  80. /_icode 0 dd
  81. counttomark 1 sub -1 0
  82. {
  83. index
  84. dup type /nametype eq
  85. {
  86. _enc _icode 3 -1 roll put
  87. _icode 1 add
  88. }
  89. if
  90. /_icode xdd
  91. } for
  92. cleartomark
  93. _enc
  94. } bd
  95. /trEnc {
  96. /_enc xdd
  97. 255 -1 0 {
  98. exch dup -1 eq
  99. { pop /.notdef }
  100. { Encoding exch get }
  101. ifelse
  102. _enc 3 1 roll put
  103. } for
  104. pop
  105. _enc
  106. } bd
  107. /TE {
  108. /_i xdd
  109. StandardEncoding 256 array copy modEnc
  110. _pdfEncodings exch _i exch put
  111. } bd
  112. /TZ
  113. {
  114. /_usePDFEncoding xdd
  115. findfont
  116. dup length 2 add dict
  117. begin
  118. {
  119. 1 index /FID ne { def } { pop pop } ifelse
  120. } forall
  121. /FontName exch def
  122. _usePDFEncoding 0 ge
  123. {
  124. /Encoding _pdfEncodings _usePDFEncoding get def
  125. pop
  126. }
  127. {
  128. _usePDFEncoding -1 eq
  129. {
  130. counttomark 0 eq
  131. { pop }
  132. {
  133. Encoding 256 array copy
  134. modEnc /Encoding exch def
  135. }
  136. ifelse
  137. }
  138. {
  139. 256 array
  140. trEnc /Encoding exch def
  141. }
  142. ifelse
  143. }
  144. ifelse
  145. FontName currentdict
  146. end
  147. definefont pop
  148. }
  149. bd
  150. /Level2?
  151. systemdict /languagelevel known
  152. {systemdict /languagelevel get 2 ge}
  153. {false}
  154. ifelse
  155. def
  156. Level2?
  157. {
  158. /_pdfFontStatus
  159. {
  160. currentglobal exch
  161. /Font resourcestatus
  162. {pop pop true}
  163. {false}
  164. ifelse
  165. exch setglobal
  166. } bd
  167. }
  168. {
  169. /_pdfFontStatusString 50 string def
  170. _pdfFontStatusString 0 (fonts/) putinterval
  171. /_pdfFontStatus
  172. {
  173. FontDirectory 1 index known
  174. { pop true }
  175. {
  176. _pdfFontStatusString 6 42 getinterval
  177. cvs length 6 add
  178. _pdfFontStatusString exch 0 exch getinterval
  179. { status } stopped
  180. {pop false}
  181. {
  182. { pop pop pop pop true}
  183. { false }
  184. ifelse
  185. }
  186. ifelse
  187. }
  188. ifelse
  189. } bd
  190. }
  191. ifelse
  192. Level2?
  193. {
  194. /_pdfCIDFontStatus
  195. {
  196. /CIDFont /Category resourcestatus
  197. {
  198. pop pop
  199. /CIDFont resourcestatus
  200. {pop pop true}
  201. {false}
  202. ifelse
  203. }
  204. { pop false }
  205. ifelse
  206. } bd
  207. }
  208. if
  209. /_pdfString100 100 string def
  210. /_pdfComposeFontName
  211. {
  212. dup length 1 eq
  213. {
  214. 0 get
  215. 1 index
  216. type /nametype eq
  217. {
  218. _pdfString100 cvs
  219. length dup dup _pdfString100 exch (-) putinterval
  220. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  221. 2 index exch cvs length
  222. add 1 add _pdfString100 exch 0 exch getinterval
  223. exch pop
  224. true
  225. }
  226. {
  227. pop pop
  228. false
  229. }
  230. ifelse
  231. }
  232. {
  233. false
  234. }
  235. ifelse
  236. dup {exch cvn exch} if
  237. } bd
  238. /_pdfConcatNames
  239. {
  240. exch
  241. _pdfString100 cvs
  242. length dup dup _pdfString100 exch (-) putinterval
  243. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  244. 3 -1 roll exch cvs length
  245. add 1 add _pdfString100 exch 0 exch getinterval
  246. cvn
  247. } bind def
  248. pdf_has_composefont?
  249. {
  250. /_pdfComposeFont
  251. {
  252. 2 copy _pdfComposeFontName not
  253. {
  254. 2 index
  255. }
  256. if
  257. (pdf) exch _pdfConcatNames
  258. dup _pdfFontStatus
  259. { dup findfont 5 2 roll pop pop pop true}
  260. {
  261. 4 1 roll
  262. 1 index /CMap resourcestatus
  263. {pop pop true}
  264. {false}
  265. ifelse
  266. 1 index true exch
  267. {
  268. _pdfCIDFontStatus not
  269. {pop false exit}
  270. if
  271. }
  272. forall
  273. and
  274. {
  275. 3 -1 roll pop
  276. 2 index 3 1 roll
  277. composefont true
  278. }
  279. {
  280. _pdfComposeFontName
  281. {
  282. dup _pdfFontStatus
  283. {
  284. exch pop
  285. dup findfont definefont true
  286. }
  287. {
  288. pop exch pop
  289. dup _pdfFontStatus
  290. { dup findfont true }
  291. { pop false }
  292. ifelse
  293. }
  294. ifelse
  295. }
  296. {
  297. exch pop
  298. dup _pdfFontStatus
  299. { dup findfont true }
  300. { pop false }
  301. ifelse
  302. }
  303. ifelse
  304. }
  305. ifelse
  306. }
  307. ifelse
  308. } bd
  309. }
  310. {
  311. /_pdfComposeFont
  312. {
  313. _pdfComposeFontName not
  314. {
  315. dup
  316. }
  317. if
  318. dup
  319. _pdfFontStatus
  320. {exch pop dup findfont true}
  321. {
  322. 1 index
  323. dup type /nametype eq
  324. {pop}
  325. {cvn}
  326. ifelse
  327. eq
  328. {pop false}
  329. {
  330. dup _pdfFontStatus
  331. {dup findfont true}
  332. {pop false}
  333. ifelse
  334. }
  335. ifelse
  336. }
  337. ifelse
  338. } bd
  339. }
  340. ifelse
  341. /_pdfStyleDicts 4 dict dup begin
  342. /Adobe-Japan1 4 dict dup begin
  343. Level2?
  344. {
  345. /Serif
  346. /HeiseiMin-W3-83pv-RKSJ-H _pdfFontStatus
  347. {/HeiseiMin-W3}
  348. {
  349. /HeiseiMin-W3 _pdfCIDFontStatus
  350. {/HeiseiMin-W3}
  351. {/Ryumin-Light}
  352. ifelse
  353. }
  354. ifelse
  355. def
  356. /SansSerif
  357. /HeiseiKakuGo-W5-83pv-RKSJ-H _pdfFontStatus
  358. {/HeiseiKakuGo-W5}
  359. {
  360. /HeiseiKakuGo-W5 _pdfCIDFontStatus
  361. {/HeiseiKakuGo-W5}
  362. {/GothicBBB-Medium}
  363. ifelse
  364. }
  365. ifelse
  366. def
  367. /HeiseiMaruGo-W4-83pv-RKSJ-H _pdfFontStatus
  368. {/HeiseiMaruGo-W4}
  369. {
  370. /HeiseiMaruGo-W4 _pdfCIDFontStatus
  371. {/HeiseiMaruGo-W4}
  372. {
  373. /Jun101-Light-RKSJ-H _pdfFontStatus
  374. { /Jun101-Light }
  375. { SansSerif }
  376. ifelse
  377. }
  378. ifelse
  379. }
  380. ifelse
  381. /RoundSansSerif exch def
  382. /Default Serif def
  383. }
  384. {
  385. /Serif /Ryumin-Light def
  386. /SansSerif /GothicBBB-Medium def
  387. {
  388. (fonts/Jun101-Light-83pv-RKSJ-H) status
  389. }stopped
  390. {pop}{
  391. { pop pop pop pop /Jun101-Light }
  392. { SansSerif }
  393. ifelse
  394. /RoundSansSerif exch def
  395. }ifelse
  396. /Default Serif def
  397. }
  398. ifelse
  399. end
  400. def
  401. /Adobe-Korea1 4 dict dup begin
  402. /Serif /HYSMyeongJo-Medium def
  403. /SansSerif /HYGoThic-Medium def
  404. /RoundSansSerif SansSerif def
  405. /Default Serif def
  406. end
  407. def
  408. /Adobe-GB1 4 dict dup begin
  409. /Serif /STSong-Light def
  410. /SansSerif /STHeiti-Regular def
  411. /RoundSansSerif SansSerif def
  412. /Default Serif def
  413. end
  414. def
  415. /Adobe-CNS1 4 dict dup begin
  416. /Serif /MKai-Medium def
  417. /SansSerif /MHei-Medium def
  418. /RoundSansSerif SansSerif def
  419. /Default Serif def
  420. end
  421. def
  422. end
  423. def
  424. /_pdf_Adobe-Japan1-2 (Adobe-Japan1-2) def
  425. /_pdfSubSetFontByStyleDict 4 dict dup begin
  426. _pdfStyleDicts /Adobe-Japan1 get
  427. {
  428. _pdf_Adobe-Japan1-2 _pdfConcatNames
  429. dup _pdfFontStatus
  430. { def }
  431. { pop pop }
  432. ifelse
  433. }
  434. forall
  435. end def
  436. /TZzero
  437. {
  438. /_fyAdj xdd
  439. /_wmode xdd
  440. /_styleArr xdd
  441. /_regOrdering xdd
  442. 3 copy
  443. _pdfComposeFont
  444. {
  445. 5 2 roll pop pop pop}
  446. {
  447. [
  448. 0 1 _styleArr length 1 sub
  449. {
  450. _styleArr exch get
  451. _pdfStyleDicts _regOrdering 2 copy known
  452. {
  453. get
  454. exch 2 copy known not
  455. { pop /Default }
  456. if
  457. get
  458. }
  459. {
  460. pop pop /Unknown
  461. }
  462. ifelse
  463. }
  464. for
  465. ]
  466. exch pop
  467. 2 index 3 1 roll
  468. _pdfComposeFont
  469. {3 -1 roll pop}
  470. {
  471. findfont dup /FontName get exch
  472. }
  473. ifelse
  474. }
  475. ifelse
  476. dup /WMode 2 copy known
  477. { get _wmode ne }
  478. { pop pop _wmode 1 eq}
  479. ifelse
  480. _fyAdj 0 ne or
  481. {
  482. exch _wmode _pdfConcatNames _fyAdj _pdfConcatNames
  483. dup _pdfFontStatus
  484. { exch pop dup findfont false}
  485. { exch true }
  486. ifelse
  487. }
  488. {
  489. dup /FontType get 0 ne
  490. }
  491. ifelse
  492. {
  493. dup /FontType get 3 eq _wmode 1 eq and
  494. {
  495. _pdfVerticalRomanT3Font dup length 10 add dict copy
  496. begin
  497. /_basefont exch
  498. dup length 3 add dict
  499. begin
  500. {1 index /FID ne {def}{pop pop} ifelse }
  501. forall
  502. /Encoding Encoding dup length array copy
  503. dup 16#27 /quotesingle put
  504. dup 16#60 /grave put
  505. _regOrdering /Adobe-Japan1 eq
  506. {dup 16#5c /yen put dup 16#a5 /yen put dup 16#b4 /yen put}
  507. if
  508. def
  509. FontName
  510. currentdict
  511. end
  512. definefont
  513. def
  514. /Encoding _basefont /Encoding get def
  515. /_fauxfont true def
  516. }
  517. {
  518. dup length 3 add dict
  519. begin
  520. {1 index /FID ne {def}{pop pop} ifelse }
  521. forall
  522. FontType 0 ne
  523. {
  524. /Encoding Encoding dup length array copy
  525. dup 16#27 /quotesingle put
  526. dup 16#60 /grave put
  527. _regOrdering /Adobe-Japan1 eq
  528. {dup 16#5c /yen put}
  529. if
  530. def
  531. /_fauxfont true def
  532. } if
  533. } ifelse
  534. /WMode _wmode def
  535. /BaseLineAdj _fyAdj def
  536. dup dup /FontName exch def
  537. currentdict
  538. end
  539. definefont pop
  540. }
  541. {
  542. pop
  543. }
  544. ifelse
  545. /_pdf_FontDirectory 3 1 roll _safeput
  546. }
  547. bd
  548. /swj {
  549. dup 4 1 roll
  550. dup length exch stringwidth
  551. exch 5 -1 roll 3 index mul add
  552. 4 1 roll 3 1 roll mul add
  553. 6 2 roll /_cnt 0 dd
  554. {1 index eq {/_cnt _cnt 1 add dd} if} forall pop
  555. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  556. } bd
  557. /jss {
  558. 4 1 roll
  559. {
  560. pop pop
  561. (0) exch 2 copy 0 exch put
  562. gsave
  563. 32 eq
  564. {
  565. exch 6 index 6 index 6 index 5 -1 roll widthshow
  566. currentpoint
  567. }
  568. {
  569. false charpath currentpoint
  570. 4 index setmatrix stroke
  571. }
  572. ifelse
  573. grestore
  574. moveto
  575. 2 copy rmoveto
  576. } exch cshow
  577. 6 {pop} repeat
  578. } def
  579. /jsfTzero {
  580. {
  581. pop pop
  582. (0) exch 2 copy 0 exch put
  583. exch show
  584. 32 eq
  585. {
  586. 4 index 4 index rmoveto
  587. }
  588. if
  589. 2 copy rmoveto
  590. } exch cshow
  591. 5 {pop} repeat
  592. } def
  593. /jsp
  594. {
  595. {
  596. pop pop
  597. (0) exch 2 copy 0 exch put
  598. 32 eq
  599. { exch 5 index 5 index 5 index 5 -1 roll widthshow }
  600. { false charpath }
  601. ifelse
  602. 2 copy rmoveto
  603. } exch cshow
  604. 5 {pop} repeat
  605. } bd
  606. /trj { _cx 0 fWModeProc 32 _ax 0 fWModeProc 6 5 roll } bd
  607. /pjsf { trj sfc fawidthshowProc } bd
  608. /pjss { trj _ctm ssc jss } bd
  609. /pjsc { trj jsp } bd
  610. /_Tjdef [
  611. /pjsf load
  612. /pjss load
  613. {
  614. dup
  615. currentpoint 3 2 roll
  616. pjsf
  617. newpath moveto
  618. pjss
  619. } bind
  620. {
  621. trj swj rmoveto
  622. } bind
  623. {
  624. dup currentpoint 4 2 roll gsave
  625. pjsf
  626. grestore 3 1 roll moveto
  627. pjsc
  628. } bind
  629. {
  630. dup currentpoint 4 2 roll
  631. currentpoint gsave newpath moveto
  632. pjss
  633. grestore 3 1 roll moveto
  634. pjsc
  635. } bind
  636. {
  637. dup currentpoint 4 2 roll gsave
  638. dup currentpoint 3 2 roll
  639. pjsf
  640. newpath moveto
  641. pjss
  642. grestore 3 1 roll moveto
  643. pjsc
  644. } bind
  645. /pjsc load
  646. ] def
  647. /BT
  648. {
  649. /_inT true dd
  650. _ctm currentmatrix pop matrix _tm copy pop
  651. 0 _rise _baselineadj add translate _hs 1 scale
  652. 0 0 moveto
  653. } bd
  654. /ET
  655. {
  656. /_inT false dd
  657. _tr 3 gt {clip} if
  658. _ctm setmatrix newpath
  659. } bd
  660. /Tr {
  661. _inT { _tr 3 le {currentpoint newpath moveto} if } if
  662. dup /_tr xdd
  663. _Tjdef exch get /_Tj xdd
  664. } bd
  665. /Tj {
  666. userdict /$$copystring 2 index put
  667. _Tj
  668. } bd
  669. /iTm { _ctm setmatrix _tm concat 0 _rise _baselineadj add translate _hs 1 scale } bd
  670. /Tm { _tm astore pop iTm 0 0 moveto } bd
  671. /Td { _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto } bd
  672. /TD { dup /_ld xdd Td } bd
  673. /_nullProc {} bd
  674. /Tf {
  675. dup 1000 div /_fScl xdd
  676. _pdf_FontDirectory 2 index 2 copy known
  677. {get exch 3 -1 roll pop}
  678. {pop pop}
  679. ifelse
  680. Level2?
  681. { selectfont }
  682. { exch findfont exch scalefont setfont}
  683. ifelse
  684. currentfont dup
  685. /_nullProc exch
  686. /WMode known
  687. {
  688. 1 index /WMode get 1 eq
  689. {pop /exch}
  690. if
  691. }
  692. if
  693. load /fWModeProc xdd
  694. dup
  695. /FontType get 0 eq dup _cx 0 ne and
  696. { /jsfTzero }
  697. { /awidthshow }
  698. ifelse
  699. load /fawidthshowProc xdd
  700. /_fTzero xdd
  701. dup /BaseLineAdj known
  702. { dup /BaseLineAdj get _fScl mul }
  703. { 0 }
  704. ifelse
  705. /_baselineadj xdd
  706. currentpoint iTm moveto
  707. pop
  708. } bd
  709. /TL { neg /_ld xdd } bd
  710. /Tw {
  711. /_cx xdd
  712. _cx 0 ne _fTzero and
  713. { /jsfTzero }
  714. { /awidthshow }
  715. ifelse
  716. load /fawidthshowProc xdd
  717. } bd
  718. /Tc { /_ax xdd } bd
  719. /Ts { /_rise xdd currentpoint iTm moveto } bd
  720. /Tz { 100 div /_hs xdd iTm } bd
  721. /Tk { exch pop _fScl mul neg 0 fWModeProc rmoveto } bd
  722. /T* { 0 _ld Td } bd
  723. /' { T* Tj } bd
  724. /" { exch Tc exch Tw ' } bd
  725. /TJ {
  726. {
  727. dup type /stringtype eq
  728. { Tj }
  729. { 0 exch Tk }
  730. ifelse
  731. } forall
  732. } bd
  733. /T- { _hy Tj } bd
  734. /d0/setcharwidth ld
  735. /d1 { setcachedevice /sfc{}dd /ssc{}dd } bd
  736. /nND {{/.notdef} repeat} bd
  737. /T3Defs {
  738. /BuildChar
  739. {
  740. 1 index /Encoding get exch get
  741. 1 index /BuildGlyph get exec
  742. }
  743. def
  744. /BuildGlyph {
  745. exch begin
  746. GlyphProcs exch get exec
  747. end
  748. } def
  749. } bd
  750. /_pdfBoldRomanWidthProc
  751. {
  752. stringwidth 1 index 0 ne { exch .03 add exch }if setcharwidth
  753. } bd
  754. /_pdfType0WidthProc
  755. {
  756. dup stringwidth 0 0 moveto
  757. 2 index true charpath pathbbox
  758. 0 -1
  759. 7 index 2 div .88
  760. setcachedevice2
  761. pop
  762. } bd
  763. /_pdfBoldBaseFont
  764. 11 dict begin
  765. /FontType 3 def
  766. /FontMatrix[1 0 0 1 0 0]def
  767. /FontBBox[0 0 1 1]def
  768. /Encoding cHexEncoding def
  769. /_setwidthProc /_pdfBoldRomanWidthProc load def
  770. /_bcstr1 1 string def
  771. /BuildChar
  772. {
  773. exch begin
  774. _basefont setfont
  775. _bcstr1 dup 0 4 -1 roll put
  776. dup
  777. _setwidthProc
  778. 0 0 moveto
  779. dup show
  780. _basefonto setfont
  781. 0 0 moveto
  782. show
  783. end
  784. }bd
  785. currentdict
  786. end
  787. def
  788. pdf_has_composefont?
  789. {
  790. /_pdfBoldBaseCIDFont
  791. 11 dict begin
  792. /CIDFontType 1 def
  793. /CIDFontName /_pdfBoldBaseCIDFont def
  794. /FontMatrix[1 0 0 1 0 0]def
  795. /FontBBox[0 0 1 1]def
  796. /_setwidthProc /_pdfType0WidthProc load def
  797. /_bcstr2 2 string def
  798. /BuildGlyph
  799. {
  800. exch begin
  801. _basefont setfont
  802. _bcstr2 1 2 index 256 mod put
  803. _bcstr2 0 3 -1 roll 256 idiv put
  804. _bcstr2 dup _setwidthProc
  805. 0 0 moveto
  806. dup show
  807. _basefonto setfont
  808. 0 0 moveto
  809. show
  810. end
  811. }bd
  812. currentdict
  813. end
  814. def
  815. /Identity-H /CMap resourcestatus
  816. {
  817. pop pop
  818. }
  819. {
  820. /CIDInit/ProcSet findresource begin 12 dict begin
  821. begincmap
  822. /CIDSystemInfo
  823. 3 dict begin
  824. /Registry (Adobe) def
  825. /Ordering (Identity) def
  826. /Supplement 0 def
  827. currentdict
  828. end
  829. def
  830. /CMapName /Identity-H def
  831. /CMapVersion 1 def
  832. /CMapType 1 def
  833. 1 begincodespacerange
  834. <0000> <ffff>
  835. endcodespacerange
  836. 1 begincidrange
  837. <0000> <ffff> 0
  838. endcidrange
  839. endcmap
  840. CMapName currentdict/CMap defineresource pop
  841. end
  842. end
  843. } ifelse
  844. } if
  845. /_pdfVerticalRomanT3Font
  846. 10 dict begin
  847. /FontType 3 def
  848. /FontMatrix[1 0 0 1 0 0]def
  849. /FontBBox[0 0 1 1]def
  850. /_bcstr1 1 string def
  851. /BuildChar
  852. {
  853. exch begin
  854. _basefont setfont
  855. _bcstr1 dup 0 4 -1 roll put
  856. dup
  857. _pdfType0WidthProc
  858. 0 0 moveto
  859. show
  860. end
  861. }bd
  862. currentdict
  863. end
  864. def
  865. /MakeBoldFont
  866. {
  867. dup dup length 3 add dict
  868. begin
  869. CopyFont
  870. /PaintType 2 def
  871. /StrokeWidth .03 0 FontMatrix idtransform pop def
  872. /dummybold currentdict
  873. end
  874. definefont
  875. dup /FontType get dup 9 ge exch 11 le and
  876. {
  877. _pdfBoldBaseCIDFont
  878. dup length 3 add dict copy begin
  879. dup /CIDSystemInfo get /CIDSystemInfo exch def
  880. /_Type0Identity /Identity-H 3 -1 roll [ exch ] composefont
  881. /_basefont exch def
  882. /_Type0Identity /Identity-H 3 -1 roll [ exch ] composefont
  883. /_basefonto exch def
  884. currentdict
  885. end
  886. /CIDFont defineresource
  887. }
  888. {
  889. _pdfBoldBaseFont
  890. dup length 3 add dict copy begin
  891. /_basefont exch def
  892. /_basefonto exch def
  893. currentdict
  894. end
  895. definefont
  896. }
  897. ifelse
  898. } bd
  899. /MakeBold {
  900. 1 index
  901. _pdf_FontDirectory 2 index 2 copy known
  902. {get}
  903. {exch pop}
  904. ifelse
  905. findfont
  906. dup
  907. /FontType get 0 eq
  908. {
  909. _pdfBoldBaseFont /_setwidthProc /_pdfType0WidthProc load put
  910. {MakeBoldFont} Type0CopyFont definefont
  911. }
  912. {
  913. dup /_fauxfont known not 1 index /SubstMaster known not and
  914. {
  915. _pdfBoldBaseFont /_setwidthProc /_pdfBoldRomanWidthProc load put
  916. MakeBoldFont
  917. }
  918. {
  919. 2 index 2 index eq
  920. { exch pop }
  921. {
  922. dup length dict begin
  923. CopyFont
  924. currentdict
  925. end
  926. definefont
  927. }
  928. ifelse
  929. }
  930. ifelse
  931. }
  932. ifelse
  933. pop pop
  934. dup /dummybold ne
  935. {/_pdf_FontDirectory exch dup _safeput }
  936. { pop }
  937. ifelse
  938. }bd
  939. /MakeItalic {
  940. _pdf_FontDirectory exch 2 copy known
  941. {get}
  942. {exch pop}
  943. ifelse
  944. dup findfont
  945. dup /FontInfo 2 copy known
  946. {
  947. get
  948. /ItalicAngle 2 copy known
  949. {get 0 eq }
  950. { pop pop true}
  951. ifelse
  952. }
  953. { pop pop true}
  954. ifelse
  955. {
  956. exch pop
  957. dup /FontType get 0 eq Level2? not and
  958. { dup /FMapType get 6 eq }
  959. { false }
  960. ifelse
  961. {
  962. dup /WMode 2 copy known
  963. {
  964. get 1 eq
  965. { _italMtx_WMode1Type0 }
  966. { _italMtxType0 }
  967. ifelse
  968. }
  969. { pop pop _italMtxType0 }
  970. ifelse
  971. }
  972. {
  973. dup /WMode 2 copy known
  974. {
  975. get 1 eq
  976. { _italMtx_WMode1 }
  977. { _italMtx }
  978. ifelse
  979. }
  980. { pop pop _italMtx }
  981. ifelse
  982. }
  983. ifelse
  984. makefont
  985. Level2? not
  986. {
  987. dup length dict begin
  988. CopyFont
  989. currentdict
  990. end
  991. }
  992. if
  993. 1 index exch
  994. definefont pop
  995. /_pdf_FontDirectory exch dup _safeput
  996. }
  997. {
  998. pop
  999. 2 copy ne
  1000. {
  1001. /_pdf_FontDirectory 3 1 roll _safeput
  1002. }
  1003. { pop pop }
  1004. ifelse
  1005. }
  1006. ifelse
  1007. }bd
  1008. /MakeBoldItalic {
  1009. /dummybold exch
  1010. MakeBold
  1011. /dummybold
  1012. MakeItalic
  1013. }bd
  1014. currentdict readonly pop end
  1015. %%EndFile
  1016.